home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / gemdos.def < prev    next >
Encoding:
Modula Definition  |  1992-03-11  |  4.3 KB  |  162 lines
  1. DEFINITION MODULE GEMDOS;
  2.  
  3. (*
  4.  *  Copyright (c) 1987,1988,1989 by
  5.  *  ana-systems, Foster City, California.
  6.  *  All Rights Reserved.
  7.  *
  8.  *  This software is furnished under a license and may be used and copied
  9.  *  only  in accordance with  the  terms  of  such  license and  with the
  10.  *  inclusion of the above copyright notice.  This software or  any other
  11.  *  copies thereof may not be provided or otherwise made available to any
  12.  *  other  person.   No title to and ownership of the  software is  herby
  13.  *  transferred.
  14.  *
  15.  *  The information in this software is  subject to change without notice
  16.  *  and  should  not be construed as a commitment by ana-systems.   No
  17.  *  warranty is implied or expressed.
  18.  *)
  19.  
  20. FROM SYSTEM IMPORT ADDRESS,CODE,REGISTER;
  21.  
  22. EXPORT QUALIFIED isatty,Pterm0,Cconin,Cconout,Cauxin,Cauxout,Cprnout,
  23.                  Crawio,Crawcin,Cnecin,Cconws,Cconrs,Cconis,Dsetdrv,
  24.                  Cconos,Cprnos,Cauxis,Cauxos,Dgetdrv,Fsetdta,Super,
  25.                  Tgetdate,Tsetdate,Tgettime,Tsettime,Fgetdta,Sversion,
  26.                  Ptermres,Dfree,Dcreate,Ddelete,Dsetpath,Fcreate,Fopen,
  27.                  Fclose,Fread,Fwrite,Fdelete,Fseek,Fattrib,Fdup,Fforce,
  28.                  Dgetpath,Malloc,Mfree,Mshrink,Pexec,Pterm,Fsfirst,
  29.                  Fsnext,Frename,Fdatime,errno,ciPermissionNum,
  30.                  ciORDONLY,ciOWRONLY,ciORDWR,ciONDELAY,ciOAPPEND,
  31.                  ciOCREAT, ciOTRUNC, ciEXCLU,ciOCONTIG,ciSTDIN,
  32.                  ciSTDOUT, ciSTDERR;
  33.  
  34. CONST
  35.  
  36.  (* defines for ATARI calls *)
  37.  (* open modes *)
  38.   ciORDONLY =    0B;    (* open only *)
  39.   ciOWRONLY =    1B;    (* open only *)
  40.   ciORDWR   =    2B;
  41.   ciONDELAY =    4B;
  42.   ciOAPPEND =   10B;
  43.   ciOCREAT  = 400B;     (* open only *)
  44.   ciOTRUNC  = 1000B;    (* open only *)
  45.   ciEXCLU   = 2000B;    (* open only *)
  46.   ciOCONTIG = 4000B;    (* open only *)
  47.  
  48.   ciPermissionNum = 00H;
  49.  
  50.   ciSTDIN  = 0;                 (* For Gemdos Standard Input *)
  51.   ciSTDOUT = 1;                 (* For Gemdos Standard Output *)
  52.   ciSTDERR = 1;                 (* For Gemdos Standard error *)
  53.  
  54.  
  55. VAR errno:INTEGER;
  56.  
  57. PROCEDURE isatty(lun:CARDINAL):BOOLEAN;
  58.  
  59. PROCEDURE Pterm0;
  60.  
  61. PROCEDURE Cconin():LONGINTEGER;
  62.  
  63. PROCEDURE Cconout(ch:CHAR);
  64.  
  65. PROCEDURE Cauxin():CHAR;
  66.  
  67. PROCEDURE Cauxout(ch:CHAR);
  68.  
  69. PROCEDURE Cprnout(ch:CHAR):INTEGER;
  70.  
  71. PROCEDURE Crawio(ch:CHAR):INTEGER;
  72.  
  73. PROCEDURE Crawcin():LONGINTEGER;
  74.  
  75. PROCEDURE Cnecin():LONGINTEGER;
  76.  
  77. PROCEDURE Cconws(str:ADDRESS):INTEGER;
  78.  
  79. PROCEDURE Cconrs(buf:ADDRESS):INTEGER;
  80.  
  81. PROCEDURE Cconis():INTEGER;
  82.  
  83. PROCEDURE Dsetdrv(drive:INTEGER):LONGINTEGER;
  84.  
  85. PROCEDURE Cconos():INTEGER;
  86.  
  87. PROCEDURE Cprnos():INTEGER;
  88.  
  89. PROCEDURE Cauxis():INTEGER;
  90.  
  91. PROCEDURE Cauxos():INTEGER;
  92.  
  93. PROCEDURE Dgetdrv():INTEGER;
  94.  
  95. PROCEDURE Fsetdta(buffer:ADDRESS);
  96.  
  97. PROCEDURE Super(stack:ADDRESS):ADDRESS;
  98.  
  99. PROCEDURE Tgetdate():INTEGER;
  100.  
  101. PROCEDURE Tsetdate(date:INTEGER);
  102.  
  103. PROCEDURE Tgettime():INTEGER;
  104.  
  105. PROCEDURE Tsettime(date:INTEGER);
  106.  
  107. PROCEDURE Fgetdta():ADDRESS;
  108.  
  109. PROCEDURE Sversion():INTEGER;
  110.  
  111. PROCEDURE Ptermres(progSize:LONGINTEGER; exitCode:INTEGER);
  112.  
  113. PROCEDURE Dfree(buf:ADDRESS; drive:INTEGER);
  114.  
  115. PROCEDURE Dcreate(path:ADDRESS):INTEGER;
  116.  
  117. PROCEDURE Ddelete(path:ADDRESS):INTEGER;
  118.  
  119. PROCEDURE Dsetpath(path:ADDRESS):INTEGER;
  120.  
  121. PROCEDURE Fcreate(path:ADDRESS; attr:INTEGER):INTEGER;
  122.  
  123. PROCEDURE Fopen(path:ADDRESS; attr:INTEGER):INTEGER;
  124.  
  125. PROCEDURE Fclose(fd:INTEGER):INTEGER;
  126.  
  127. PROCEDURE Fread(fd:INTEGER; count:LONGINTEGER; buffer:ADDRESS):LONGINTEGER;
  128.  
  129. PROCEDURE Fwrite(fd:INTEGER; count:LONGINTEGER; buffer:ADDRESS):LONGINTEGER;
  130.  
  131. PROCEDURE Fdelete(path:ADDRESS):INTEGER;
  132.  
  133. PROCEDURE Fseek(offset:LONGINTEGER; fd,mode:INTEGER):LONGINTEGER;
  134.  
  135. PROCEDURE Fattrib(fname:ADDRESS; mode,newAttrib:INTEGER):INTEGER;
  136.  
  137. PROCEDURE Fdup(handle:INTEGER):INTEGER;
  138.  
  139. PROCEDURE Fforce(stdFile,userFile:INTEGER):INTEGER;
  140.  
  141. PROCEDURE Dgetpath(buff:ADDRESS; drive:INTEGER):INTEGER;
  142.  
  143. PROCEDURE Malloc(count:INTEGER):ADDRESS;
  144.  
  145. PROCEDURE Mfree(addr:ADDRESS):INTEGER;
  146.  
  147. PROCEDURE Mshrink(dummy:INTEGER; startAddr:ADDRESS; size:LONGINTEGER):INTEGER;
  148.  
  149. PROCEDURE Pexec(mode:INTEGER; path,cmdln,env:ADDRESS):ADDRESS;
  150.  
  151. PROCEDURE Pterm(code:INTEGER);
  152.  
  153. PROCEDURE Fsfirst(path:ADDRESS; attr:INTEGER):INTEGER;
  154.  
  155. PROCEDURE Fsnext():INTEGER;
  156.  
  157. PROCEDURE Frename(dummy:INTEGER; oldpath,newpath:ADDRESS):INTEGER;
  158.  
  159. PROCEDURE Fdatime(dateBuf:ADDRESS; handle,mode:INTEGER);
  160.  
  161. END GEMDOS.
  162.